home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b3.d64 / program116 < prev    next >
Text File  |  2007-02-28  |  811b  |  33 lines
  1. 0010 // PROGRAM 116
  2. 0020 //
  3. 0030 // COMELY KATE
  4. 0040 //
  5. 0050 // TO SET UP LIBRARY FILE
  6. 0060 //
  7. 0070 // FIRST READ NUMBER OF BOOKS IN LIBRARY
  8. 0080 READ NUMBER#
  9. 0090 //
  10. 0100 DIM BOOK$ OF 40
  11. 0110 //
  12. 0120 // READ IN LIST OF BOOKS AND SET UP FILE
  13. 0130 //
  14. 0140 OPEN FILE 3,"0:LIBRARY",RANDOM 42
  15. 0150 FOR COUNT#:=1 TO NUMBER# DO
  16. 0160 READ BOOK$
  17. 0170 WRITE FILE 3,COUNT#: BOOK$
  18. 0180 ENDFOR COUNT#
  19. 0190 CLOSE FILE 3
  20. 0200 //
  21. 0210 DATA 10
  22. 0220 DATA "ESSAYS ON EDUCATION"
  23. 0230 DATA "THE MIGHTY MICRO"
  24. 0240 DATA "THE PENQUIN BOOK OF CHESS POSITIONS"
  25. 0250 DATA "THE AIMS OF EDUCATION"
  26. 0260 DATA "MEN OF MATHEMATICS"
  27. 0270 DATA "VISION IN ELEMENTARY MATHEMATICS"
  28. 0280 DATA "LESSONS IN CHESS STRATEGY"
  29. 0290 DATA "COMPULSORY MISEDUCATION"
  30. 0300 DATA "PRACTICAL CHESS ENDGAMES"
  31. 0310 DATA "MATHEMATICS IN WESTERN CULTURE"
  32. 0320 END 
  33.